home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / robin10.arc / TESTLIST.CMD < prev   
Encoding:
Text File  |  1987-04-29  |  1.6 KB  |  56 lines
  1. ;                   TESTLIST.CMD    "Round Robin Dialer"
  2. ;                                 by
  3. ;                           Samuel Smulowitz
  4. ;                          CENTURY ASSOCIATES
  5. ;                          141-04 71st Avenue
  6. ;                          Flushing, N.Y. 11367
  7. ;
  8. ;
  9. ;  THIS COMMAND FILE PRESENTS A LIST OF TELEPHONE NUMBERS
  10. ;  TO THE ROBIN.CMD  ROUTINE.
  11. ;
  12. ;  TO WORK PROPERLY, DO NOT CHANGE ANYTHING IN THIS ROUTINE
  13. ;  EXCEPT THE FOLLOWING DATA:
  14. ;
  15. ;      CHANGE "ASSIGN S9" TO THE NAME OF YOUR COMMAND FILE.
  16. ;      CHANGE FIRST SET OF "ASSIGN S1" THRU "ASSIGN S8" LINES
  17. ;        TO THE TELEPHONE NUMBERS TO BE DIALED.
  18. ;      CHANGE SECOND SET OF "ASSIGN S1" THRU "ASSIGN S8" LINES
  19. ;        TO THE CORRESPONDING NAMES FOR THOSE NUMBERS.
  20. ;
  21. START:
  22.   SWITCH S9
  23.     CASE "_NULL"
  24.       CLEAR                            ;INIT SCREEN
  25.       ASSIGN S0 "ROBIN.CMD"            ;MUST BE SET FOR EXECUTE
  26.       ASSIGN S9 "TESTLIST.CMD   NAMES" ;CHANGE TO 'NUMBERS' IF NAMES NOT DISPLAYED.
  27.     ENDCASE
  28.   ENDSWITCH
  29.   FIND S9 "NUMBERS"
  30.     IF FOUND
  31.       ASSIGN S1 "539-3338"
  32.       ASSIGN S2 "539-3560"
  33.       ASSIGN S3 "1-212-432-7288"
  34.       ASSIGN S4 "1-212-757-3387"
  35.       ASSIGN S5 "1-212-807-1257"
  36.       ASSIGN S6 "END"
  37.       ASSIGN S7 "DUMMY"
  38.       ASSIGN S8 "DUMMY"
  39.       GOTO CALL-ROBIN
  40.     ENDIF
  41.   FIND S9 "NAMES"
  42.     IF FOUND
  43.       ASSIGN S1 "N.Y. AMATEUR CLUB"
  44.       ASSIGN S2 "N.Y. AMATEUR CLUB"
  45.       ASSIGN S3 "MANHATTAN SOUTH"
  46.       ASSIGN S4 "METRO CPU"
  47.       ASSIGN S5 "CHELSEA SQUARE"
  48.       ASSIGN S6 "END"
  49.       ASSIGN S7 "DUMMY"
  50.       ASSIGN S8 "DUMMY"
  51.     ENDIF
  52. ;
  53. CALL-ROBIN:
  54.   EXECUTE S0
  55. ;
  56. EXIT